home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Amiga-E / E_v3.2a / Src / Intui / gradient.e < prev    next >
Text File  |  1992-09-02  |  1KB  |  33 lines
  1. -> gradientslider in E!
  2.  
  3. MODULE 'intuition/intuition', 'intuition/gadgetclass', 'intuition/icclass',
  4.        'gadgets/gradientslider'
  5.  
  6. DEF w:PTR TO window, grad:PTR TO gadget, gradbase, class, val
  7.  
  8. PROC main()
  9.   IF w:=OpenWindowTagList(NIL,[WA_FLAGS,$E,WA_IDCMP,$268,WA_WIDTH,400,WA_HEIGHT,80,WA_TITLE,'Gradients in E!',0])
  10.     SetStdRast(w.rport)
  11.     IF gradbase:=OpenLibrary('gadgets/gradientslider.gadget',39)
  12.       IF grad:=NewObjectA(NIL,'gradientslider.gadget',[GA_TOP,20,GA_LEFT,20,GA_WIDTH,350,GA_HEIGHT,30,GA_ID,1,GRAD_PENARRAY,[0,7,-1]:INT,GRAD_KNOBPIXELS,20,0])
  13.         AddGList(w,grad,-1,-1,NIL)
  14.         RefreshGList(grad,w,NIL,-1)
  15.         WHILE (class:=WaitIMessage(w))<>IDCMP_CLOSEWINDOW
  16.           GetAttr(GRAD_CURVAL,grad,{val})
  17.           TextF(20,60,'gradient value = \z$\h[4]',val)
  18.         ENDWHILE
  19.         RemoveGList(w,grad,-1)
  20.         DisposeObject(grad)
  21.       ELSE
  22.         WriteF('Could not create GradientSlider!\n')
  23.       ENDIF
  24.       CloseLibrary(gradbase)
  25.     ELSE
  26.       WriteF('Could not open "gradientslider.gadget"\n')
  27.     ENDIF
  28.     CloseWindow(w)
  29.   ELSE
  30.     WriteF('No Window!\n')
  31.   ENDIF
  32. ENDPROC
  33.